library(ggplot2)

overall_response_rates <- read.csv("overall_responserate.csv")
overall_response_rates_13 <- filter(overall_response_rates, app_year<2014)

ggplot(overall_response_rates_13, aes(x= app_year, y= finished)) +
  labs(y= "Response Rate", x="Application Year") +
  geom_point()+
  geom_line()+
  scale_y_continuous(limit = c(0.1,0.25))+
  scale_x_continuous(breaks=seq(2007,2013, by=1)) +
  theme_bw()+
  theme(legend.position = "bottom")

ggplot(overall_response_rates_13, aes(x= app_year, y= partial)) +
  geom_line()+
  geom_point()+
  labs(y= "Response Rate", x="Application Year") +
  scale_y_continuous(limit = c(0.1,.35))+
  scale_x_continuous(breaks=seq(2007,2013, by=1)) +
  theme_bw()+
  theme(legend.position = "bottom")
